; Tests the Jump Functions 
; If the jump is a success, we keep jumping until it's not!
BEG
;
; Test all the Jump functions
PTC '\n' ;
PTC '-'  ;
PTC 'T'  ;
PTC 'E'  ;
PTC 'S'  ;
PTC 'T'  ;
PTC 'I'  ;
PTC 'N'  ;
PTC 'G'  ;
PTC '-'  ;
PTC 'J'  ;
PTC 'Z'  ;
PTC '-'  ;
PTC '\n' ;

GET R0   ; Line 21 - Get initial value

JZ  R0,41 ; CHANGE THIS  to either JZ/JNZ/JGT/JLT/JMP  to test them all.  I already did.

PTC '\n' ; Line 25
PTC 'B'  ;
PTC 'O'  ;
PTC 'O'  ;
PTC '-'  ;
PTC 'N'  ;
PTC 'O'  ;
PTC '-'  ;
PTC 'J'  ;
PTC 'U'  ;
PTC 'M'  ;
PTC 'P'  ;
PTC '!'  ;
PTC '\n' ;
JMP 54   ;

PTC '\n' ; Line 41
PTC 'Y'  ;
PTC 'A'  ;
PTC 'Y'  ;
PTC '-'  ;
PTC 'J'  ;
PTC 'U'  ;
PTC 'M'  ;
PTC 'P'  ;
PTC '!'  ;
PTC '\n' ;
JMP 21   ;

CLR R0 ;
CLR     R1 ;
;
END

